home *** CD-ROM | disk | FTP | other *** search
/ Freaks Macintosh Archive / Freaks Macintosh Archive.bin / Freaks Macintosh Archives / Macintosh / ResEdit3.0.sit / ResEdit™ 3.0 / ResEdit 3.0.rsrc / EDL_129_Resource.DITL < prev    next >
Text File  |  1997-01-27  |  1KB  |  79 lines
  1. List(items, DITLEntry, ZeroBasedCount(16))
  2.     {
  3.     PadLong;
  4.     Word(top);
  5.     Word(left);
  6.     Word(bottom);
  7.     Word(right);
  8.     Bool(disabled, 1);
  9.     UBits(type, 7);
  10.     Label(_dataStart);
  11.     Switch(type)
  12.         {
  13.         case 1: // Help item
  14.             {
  15.             CalcBitsU((_dataEnd - _dataStart) / 8, 8);
  16.             UWord(helpType);
  17.             Switch(helpType)
  18.                 {
  19.                 case 1: // HMScanhdlg
  20.                 case 2: // HMScanhrct
  21.                     {
  22.                     Word(id);
  23.                     }
  24.                 
  25.                 case 8: // HMScanAppendhdlg
  26.                     {
  27.                     Word(id);
  28.                     Word(offset);
  29.                     }
  30.                 
  31.                 } // Switch(helpType)
  32.             
  33.             } // case 1
  34.         
  35.         case 4: // Button
  36.         case 5: // Check box
  37.         case 6: // Radio button
  38.         case 8: // Static text
  39.         case 16: // Edit text
  40.             {
  41.             PString(name);
  42.             }
  43.         
  44.         case 7: // Control
  45.             {
  46.             CalcBitsU(2,8);
  47.             ResourceRef(id, 'CTRL');
  48.             }
  49.         
  50.         case 32: // Icon
  51.             {
  52.             CalcBitsU(2,8);
  53.             ResourceRef(id, 'ICON');
  54.             }
  55.         
  56.         case 64: // Picture
  57.             {
  58.             CalcBitsU(2,8);
  59.             ResourceRef(id, 'PICT');
  60.             }
  61.         
  62.         case 0: // User item
  63.             {
  64.             CalcBitsU(0,8);
  65.             }
  66.         
  67.         /* default:
  68.             {
  69.             CalcBitsU(Len(unknownItemData), 8);
  70.             Data(unknownItemData);
  71.             }
  72.         */
  73.     
  74.         } // Switch(type)
  75.     
  76.     Label(_dataEnd);
  77.     Align(2);
  78.     } // items list
  79.